home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
System Booster
/
System Booster.iso
/
Texteditors
/
AlphaSpell
/
Install_ASpell
< prev
next >
Wrap
Text File
|
1996-09-26
|
2KB
|
107 lines
; Installation script for AlphaSpell
(transcript "Installing AlphaSpell ...")
(set cputype (+(database "CPU")) )
(if (< cputype 68020)
(set src "ASpell000")
(set src "ASpell020")
)
(set aspath
(askdir
(prompt "Install AlphaSpell where?")
(help @askdir-help)
(default "C:")
)
)
(copyfiles
(prompt "Copying AlphaSpell")
(help @copyfiles-help)
(source src)
(newname "AlphaSpell")
(dest aspath)
(confirm)
)
(set destpath
(askdir
(prompt "Install AlphaSpell.guide where?")
(help @askdir-help)
(default "Data:Docs/")
)
)
(copyfiles
(prompt "Copying AlphaSpell's Documentation")
(help @copyfiles-help)
(source "Doc/")
(dest destpath)
(confirm)
(all)
)
(set destpath
(askdir
(prompt "Install keyconv where?")
(help @askdir-help)
(default "C:")
)
)
(copyfiles
(prompt "Copying keyconv")
(help @copyfiles-help)
(source "keyconv")
(dest destpath)
(confirm)
)
(set destpath
(askdir
(prompt "Install the Dictionaries where?")
(help @askdir-help)
(default "Work:")
)
)
(copyfiles
(prompt "Copying AlphaSpell's Dictionaries")
(help @copyfiles-help)
(source "Dictionaries/")
(dest destpath)
(confirm)
(all)
)
(set response
(askchoice
(prompt
"Add Environment Variables?"
)
(help @askchoice-help)
(choices "Yes" "No")
)
)
(if (= response 0)
(
(run (cat "setenv DDIR " (tackon destpath " ")))
(run ("setenv Dict English.low English.mix User.low User.mix"))
(run (cat "setenv UDict " (tackon destpath "User.low") " " (tackon destpath "User.mix")))
(run "copy ENV:Dict ENVARC:")
(run "copy ENV:DDIR ENVARC:")
(run "copy ENV:UDict ENVARC:")
)
)
(message
(cat "Installation complete.\n"
"AlphaSpell has been installed as " (tackon aspath "AlphaSpell.")
)
)
(exit (quiet))